﻿Public Class PropCtl


    Dim manager As LayerManager
    'Public Sub New(ByRef m As LayerManager)

    '    ' 此调用是 Windows 窗体设计器所必需的。
    '    InitializeComponent()

    '    ' 在 InitializeComponent() 调用之后添加任何初始化。

    'End Sub

    Public Sub New()

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

    End Sub

    Public Sub InitCtl(ByRef m As LayerManager)
        manager = m

    End Sub

    Public Sub SetObject(ByRef o As Object)
        pgLayer.SelectedObject = o



    End Sub

    Public Sub OnLayerSelected(ByVal ln As String)
        Dim lay As Layer
        manager.GetLayer(ln, lay)

        If lay IsNot Nothing Then

            '更新名称


            Dim ltype As System.Type = lay.GetType()



            Me.SetObject(lay)

        End If


    End Sub

End Class
